"0","s.probs$probs <- rep(1/length(species),length(species))
sampled.inds <- table(sample(s.probs$species,100,prob = s.probs$probs, replace =TRUE))
Rarefied.richness <- ddply(inds,.(N),each(EsN.calc))
highE <- Rarefied.richness
highE$model <- rep(\"high\",nrow(highE))"
